home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 92 / Tiger_Disk_092_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_92 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  762b  |  18 lines
  1. 2000 print"[147]";:poke53280,.:poke53281,.:
  2. 2005 poke646,peek(53281):
  3. 2010 print" [209][209][209][209][209][209][209] [209][209]    [209] [209][209][209][209][209][209]  [209][209][209][209][209][209][209]  [209][209][209] "
  4. 2020 print" [209][209]      [209][209][209]   [209] [209][209]    [209] [209][209]       [209][209][209] "
  5. 2030 print" [209][209][209][209][209]   [209][209] [209]  [209] [209][209]    [209] [209][209][209][209]     [209][209][209] "
  6. 2040 print" [209][209]      [209][209]  [209] [209] [209][209]    [209] [209][209]           "
  7. 2050 print" [209][209][209][209][209][209][209] [209][209]   [209][209] [209][209][209][209][209][209]  [209][209][209][209][209][209][209]  [209][209][209] "
  8. 2150 s=54272:pokes+24,15:pokes,168:pokes+1,68:pokes+5,15:pokes+6,139
  9. 2151 pokes+7,120:pokes+8,100:pokes+12,15:pokes+13,215:forx=0to315step6
  10. 2245 pokes+4,33:pokes+4,32:pokes+11,21:pokes+11,20:pokes+1,12*(rnd(x/20)+1)
  11. 2250 if(x-20)/8<>int((x-20)/8)thenpoke646,4
  12. 2260 fory=0to4:poke55296+40+(x-20)/8+40*y,y+(rnd(y)+2):next:next
  13. 2340 forx=0to116step6:
  14. 2345 pokes+4,33:pokes+11,24:pokes+4,16:pokes+11,16
  15. 2350 if(x1-20)/8<>int((x1-20)/8)thenpoke646,4:poke+11,81:pokes+4,81
  16. 2360 fory=0to4:poke55296+41+(x1-20)/8+41*y,y+(rnd(y)+2):next:next:poke56325,.
  17. 2390 print"lukian":poke56325,55:fort=1to300:next:sys2048
  18.